home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / programr / ole2book.zip / CHAP08.ZIP / CHAP08 / PATRON / PAGEWIN.CPP < prev    next >
C/C++ Source or Header  |  1993-06-17  |  23KB  |  832 lines
  1. /*
  2.  * PAGEWIN.CPP
  3.  * Modifications for Chapter 8
  4.  *
  5.  * Window procedure for the Pages window and support functions.  This
  6.  * window manages its own scrollbars and viewport and provides
  7.  * printing capabilities as well.  The public CPages::Print lives here.
  8.  *
  9.  * Copyright (c)1993 Microsoft Corporation, All Rights Reserved
  10.  *
  11.  * Kraig Brockschmidt, Software Design Engineer
  12.  * Microsoft Systems Developer Relations
  13.  *
  14.  * Internet  :  kraigb@microsoft.com
  15.  * Compuserve:  >INTERNET:kraigb@microsoft.com
  16.  */
  17.  
  18.  
  19.  
  20. #include "patron.h"
  21.  
  22.  
  23. extern HWND g_hDlgPrint;
  24. extern BOOL g_fCancelPrint;
  25.  
  26.  
  27. /*
  28.  * PagesWndProc
  29.  *
  30.  * Purpose:
  31.  *  Window procedure for the Pages window.
  32.  */
  33.  
  34. LRESULT __export FAR PASCAL PagesWndProc(HWND hWnd, UINT iMsg
  35.     , WPARAM wParam, LPARAM lParam)
  36.     {
  37.     LPCPages        ppg;
  38.     PAINTSTRUCT     ps;
  39.     HDC             hDC;
  40.     int             iPos, iTmp;
  41.     int             iMin, iMax;
  42.     UINT            idScroll;
  43.     BOOL            fDirty=FALSE;
  44.  
  45.     ppg=(LPCPages)GetWindowLong(hWnd, PAGEWL_STRUCTURE);
  46.  
  47.     switch (iMsg)
  48.         {
  49.         case WM_CREATE:
  50.             ppg=(LPCPages)((LPCREATESTRUCT)lParam)->lpCreateParams;
  51.             SetWindowLong(hWnd, PAGEWL_STRUCTURE, (LONG)ppg);
  52.  
  53.             ppg->m_hWnd=hWnd;
  54.             break;
  55.  
  56.         case WM_PAINT:
  57.             //CHAPTER8MOD
  58.             /*
  59.              * If there is currently a drag-rectangle showing, then
  60.              * remove it before painting.  This insures that painting
  61.              * doesn't blast part of that rectangle away such that when
  62.              * we draw it next, garbage is left around.
  63.              */
  64.             if (ppg->m_fDragRectShown)
  65.                 ppg->DrawDropTargetRect(NULL, NULL);
  66.             //End CHAPTER8MOD
  67.  
  68.             hDC=BeginPaint(hWnd, &ps);
  69.  
  70.             //Draw only if we have a page to show.
  71.             if (0!=ppg->m_cPages)
  72.                 ppg->Draw(hDC, FALSE, FALSE);
  73.  
  74.             EndPaint(hWnd, &ps);
  75.  
  76.             //CHAPTER8MOD
  77.             //Turn the rectangle back on, if necessary.
  78.             if (ppg->m_fDragRectShown)
  79.                 ppg->DrawDropTargetRect(NULL, NULL);
  80.             //End CHAPTER8MOD
  81.             break;
  82.  
  83.  
  84.         case WM_HSCROLL:
  85.         case WM_VSCROLL:
  86.             idScroll=(WM_HSCROLL==iMsg) ? SB_HORZ : SB_VERT;
  87.  
  88.             iPos=GetScrollPos(hWnd, idScroll);
  89.             iTmp=iPos;
  90.             GetScrollRange(hWnd, idScroll, &iMin, &iMax);
  91.  
  92.             switch (wParam)
  93.                 {
  94.                 case SB_LINEUP:     iPos -= 20;  break;
  95.                 case SB_PAGEUP:     iPos -=100;  break;
  96.                 case SB_LINEDOWN:   iPos += 20;  break;
  97.                 case SB_PAGEDOWN:   iPos +=100;  break;
  98.  
  99.                 case SB_THUMBPOSITION:
  100.                     iPos=ScrollThumbPosition(wParam, lParam);
  101.                     break;
  102.  
  103.                 //We don't want scrolling on this message.
  104.                 case SB_THUMBTRACK:
  105.                     return 0L;
  106.                 }
  107.  
  108.             iPos=max(iMin, min(iPos, iMax));
  109.  
  110.             if (iPos!=iTmp)
  111.                 {
  112.                 //Set the new position and scroll the window as necessary.
  113.                 SetScrollPos(hWnd, idScroll, iPos, TRUE);
  114.  
  115.                 if (SB_HORZ==idScroll)
  116.                     {
  117.                     ppg->m_xPos=iPos;
  118.                     ScrollWindow(hWnd, iTmp-iPos, 0, NULL, NULL);
  119.                     }
  120.                 else
  121.                     {
  122.                     ppg->m_yPos=iPos;
  123.                     ScrollWindow(hWnd, 0, iTmp-iPos, NULL, NULL);
  124.                     }
  125.                 }
  126.  
  127.             break;
  128.  
  129.         case WM_LBUTTONDOWN:
  130.             if (NULL==ppg->m_pPageCur)
  131.                 break;
  132.  
  133.             fDirty=ppg->m_pPageCur->OnLeftDown(wParam
  134.                 , LOWORD(lParam), HIWORD(lParam));
  135.             break;
  136.  
  137.         case WM_LBUTTONUP:
  138.             if (NULL==ppg->m_pPageCur)
  139.                 break;
  140.  
  141.             fDirty=ppg->m_pPageCur->OnLeftUp(wParam
  142.                 , LOWORD(lParam), HIWORD(lParam));
  143.             break;
  144.  
  145.         case WM_LBUTTONDBLCLK:
  146.             if (NULL==ppg->m_pPageCur)
  147.                 break;
  148.  
  149.             fDirty=ppg->m_pPageCur->OnLeftDoubleClick(wParam, LOWORD(lParam)
  150.                 , HIWORD(lParam));
  151.             break;
  152.  
  153.         case WM_MOUSEMOVE:
  154.             if (NULL==ppg->m_pPageCur)
  155.                 break;
  156.  
  157.             ppg->m_pPageCur->OnMouseMove(wParam, LOWORD(lParam)
  158.                 , HIWORD(lParam));
  159.             break;
  160.  
  161.         case WM_NCHITTEST:
  162.             if (NULL!=ppg->m_pPageCur)
  163.                 {
  164.                 //This just saves information in the page for OnSetCursor
  165.                 ppg->m_pPageCur->OnNCHitTest(LOWORD(lParam)
  166.                     , HIWORD(lParam));
  167.                 }
  168.  
  169.             return DefWindowProc(hWnd, iMsg, wParam, lParam);
  170.  
  171.         case WM_SETCURSOR:
  172.             if (NULL!=ppg->m_pPageCur)
  173.                 {
  174.                 if (ppg->m_pPageCur->OnSetCursor(LOWORD(lParam)))
  175.                     break;
  176.                 }
  177.  
  178.             return DefWindowProc(hWnd, iMsg, wParam, lParam);
  179.  
  180.         default:
  181.             return DefWindowProc(hWnd, iMsg, wParam, lParam);
  182.         }
  183.  
  184.     ppg->m_fDirty |= fDirty;
  185.     return 0L;
  186.     }
  187.  
  188.  
  189.  
  190.  
  191.  
  192. /*
  193.  * RectConvertMappings
  194.  *
  195.  * Purpose:
  196.  *  Converts the contents of a rectangle from device to logical
  197.  *  coordinates where the hDC defines the logical coordinates.
  198.  *
  199.  * Parameters:
  200.  *  pRect           LPRECT containing the rectangle to convert.
  201.  *  hDC             HDC describing the logical coordinate system.
  202.  *                  if NULL, uses a screen DC in MM_LOMETRIC.
  203.  *  fToDevice       BOOL TRUE to convert from uConv to device,
  204.  *                  FALSE to convert device to uConv.
  205.  *
  206.  * Return Value:
  207.  *  None
  208.  */
  209.  
  210. void RectConvertMappings(LPRECT pRect, HDC hDC, BOOL fToDevice)
  211.     {
  212.     POINT   rgpt[2];
  213.     BOOL    fSysDC=FALSE;
  214.  
  215.     if (NULL==pRect)
  216.         return;
  217.  
  218.     rgpt[0].x=pRect->left;
  219.     rgpt[0].y=pRect->top;
  220.     rgpt[1].x=pRect->right;
  221.     rgpt[1].y=pRect->bottom;
  222.  
  223.     if (NULL==hDC)
  224.         {
  225.         hDC=GetDC(NULL);
  226.         SetMapMode(hDC, MM_LOMETRIC);
  227.         fSysDC=TRUE;
  228.         }
  229.  
  230.     if (fToDevice)
  231.         LPtoDP(hDC, rgpt, 2);
  232.     else
  233.         DPtoLP(hDC, rgpt, 2);
  234.  
  235.     if (fSysDC)
  236.         ReleaseDC(NULL, hDC);
  237.  
  238.     pRect->left=rgpt[0].x;
  239.     pRect->top=rgpt[0].y;
  240.     pRect->right=rgpt[1].x;
  241.     pRect->bottom=rgpt[1].y;
  242.  
  243.     return;
  244.     }
  245.  
  246.  
  247.  
  248.  
  249.  
  250.  
  251.  
  252. /*
  253.  * CPages::Draw
  254.  *
  255.  * Purpose:
  256.  *  Paints the current page in the pages window.
  257.  *
  258.  * Parameters:
  259.  *  hDC             HDC to draw on, could be a metafile or printer DC or
  260.  *                  any other type of DC.
  261.  *  fNoColor        BOOL indicating if we should use screen colors or
  262.  *                  printer colos (B&W).  Objects are printed as-is, however.
  263.  *                  This is TRUE for printer DCs or print preview.
  264.  *  fPrinter        BOOL indicating if this is a printer DC in which case
  265.  *                  we eliminate some of the fancy drawing, like shadows on
  266.  *                  the page and so forth.
  267.  *
  268.  * Return Value:
  269.  *  None
  270.  */
  271.  
  272. void CPages::Draw(HDC hDC, BOOL fNoColor, BOOL fPrinter)
  273.     {
  274.     RECT            rc, rcT;
  275.     UINT            uMM;
  276.     HPEN            hPen;
  277.     HBRUSH          hBrush;
  278.     HGDIOBJ         hObj1, hObj2;
  279.     COLORREF        cr;
  280.     char            szTemp[20];
  281.     UINT            cch;
  282.     DWORD           dwExt;
  283.     LPPAGE          pPage;
  284.     RECT            rcPos;
  285.  
  286.     //Make sure the DC is in LOMETRIC
  287.     uMM=SetMapMode(hDC, MM_LOMETRIC);
  288.  
  289.     if (!fPrinter)
  290.         {
  291.         /*
  292.          * We maintain a 6mm border around the page on the screen besides
  293.          * 12.7mm margins.  We also have to account for the scroll position
  294.          * with m_*Pos which are in pixels so we have to convert them.
  295.          */
  296.         SetRect(&rcPos, m_xPos, m_yPos, 0, 0);
  297.         RectConvertMappings(&rcPos, hDC, FALSE);
  298.  
  299.         rc.left  = LOMETRIC_BORDER-rcPos.left;
  300.         rc.top   =-LOMETRIC_BORDER-rcPos.top;
  301.         }
  302.     else
  303.         {
  304.         /*
  305.          * We define the corner of the printed paper at a negative
  306.          * offset so rc.right and rc.bottom come out right below.
  307.          */
  308.         SetRect(&rc, -(int)m_xMarginLeft, m_yMarginTop, 0, 0);
  309.         }
  310.  
  311.     rc.right =rc.left+(UINT)m_cx+(UINT)(m_xMarginLeft+m_xMarginRight);
  312.     rc.bottom=rc.top -(UINT)m_cy-(UINT)(m_yMarginTop+m_yMarginBottom);
  313.  
  314.     //Draw a rectangle filled with the window color to show the page.
  315.     if (!fPrinter)
  316.         {
  317.         if (fNoColor)
  318.             {
  319.             //Black frame, white box for printed colors.
  320.             hPen  =CreatePen(PS_SOLID, 0, RGB(0,0,0));
  321.             hBrush=CreateSolidBrush(RGB(255, 255, 255));
  322.             }
  323.         else
  324.             {
  325.             //Normal colors on display
  326.             hPen  =CreatePen(PS_SOLID, 0, GetSysColor(COLOR_WINDOWFRAME));
  327.             hBrush=CreateSolidBrush(GetSysColor(COLOR_WINDOW));
  328.             }
  329.  
  330.         hObj1=SelectObject(hDC, hPen);
  331.         hObj2=SelectObject(hDC, hBrush);
  332.  
  333.         //Paper boundary
  334.         Rectangle(hDC, rc.left, rc.top, rc.right, rc.bottom+1);
  335.  
  336.         /*
  337.          * Draw a shadow on the *visual* bottom and right edges .5mm wide.
  338.          * If the button shadow color and workspace colors match, then
  339.          * use black.  We always use black when printing as well.
  340.          */
  341.         if (fNoColor)
  342.             cr=RGB(0,0,0);
  343.         else
  344.             {
  345.             cr=GetSysColor(COLOR_BTNSHADOW);
  346.  
  347.             if (GetSysColor(COLOR_APPWORKSPACE)==cr)
  348.                 cr=RGB(0,0,0);
  349.             }
  350.  
  351.         cr=SetBkColor(hDC, cr);
  352.         SetRect(&rcT, rc.left+5, rc.bottom, rc.right+5, rc.bottom-5);
  353.         ExtTextOut(hDC, 0, 0, ETO_OPAQUE, &rcT, NULL, 0, NULL);
  354.  
  355.         SetRect(&rcT, rc.right, rc.top-5, rc.right+5, rc.bottom-5);
  356.         ExtTextOut(hDC, 0, 0, ETO_OPAQUE, &rcT, NULL, 0, NULL);
  357.         SetBkColor(hDC, cr);
  358.  
  359.         SelectObject(hDC, hObj1);
  360.         SelectObject(hDC, hObj2);
  361.         DeleteObject(hBrush);
  362.         DeleteObject(hPen);
  363.         }
  364.  
  365.     //Write the page number in the lower left corner
  366.     if (!fNoColor)
  367.         {
  368.         SetTextColor(hDC, GetSysColor(COLOR_WINDOWTEXT));
  369.         SetBkColor(hDC, GetSysColor(COLOR_WINDOW));
  370.         }
  371.  
  372.     //Write the page number in our page font.
  373.     cch=wsprintf(szTemp, "Page %d", m_iPageCur+1);
  374.  
  375.     hObj1=SelectObject(hDC, m_hFont);
  376.     dwExt=GetTextExtent(hDC, szTemp, cch);
  377.  
  378.     TextOut(hDC, rc.left+m_xMarginLeft
  379.         , rc.bottom+m_yMarginBottom+HIWORD(dwExt), szTemp, cch);
  380.  
  381.     SelectObject(hDC, hObj1);
  382.  
  383.     //Rectangle to show border.
  384.     MoveTo(hDC, rc.left+m_xMarginLeft,   rc.top-m_yMarginTop);
  385.     LineTo(hDC, rc.left+m_xMarginLeft,   rc.bottom+m_yMarginBottom);
  386.     LineTo(hDC, rc.right-m_xMarginRight, rc.bottom+m_yMarginBottom);
  387.     LineTo(hDC, rc.right-m_xMarginRight, rc.top-m_yMarginTop);
  388.     LineTo(hDC, rc.left+m_xMarginLeft,   rc.top-m_yMarginTop);
  389.  
  390.     /*
  391.      * Go draw the objects on this page.  If the page is not open, we
  392.      * open it anyway.  If it is already open, then opening again will
  393.      * bump it's reference count, so the Close in ineffectual.
  394.      */
  395.     if (FPageGet(m_iPageCur, &pPage, TRUE))
  396.         {
  397.         if (!fPrinter)
  398.             pPage->Draw(hDC, rcPos.left, rcPos.top, fNoColor, fPrinter);
  399.         else
  400.             pPage->Draw(hDC, 0, 0, fNoColor, fPrinter);
  401.  
  402.         pPage->Close(FALSE);
  403.         }
  404.  
  405.     SetMapMode(hDC, uMM);
  406.     return;
  407.     }
  408.  
  409.  
  410.  
  411.  
  412.  
  413. /*
  414.  * CPages::UpdateScrollRanges
  415.  *
  416.  * Purpose:
  417.  *  Reset scrollbar ranges (horizontal and vertical) depending on
  418.  *  the window size and the page size.  This function may remove the
  419.  *  scrollbars altogether.
  420.  *
  421.  * Parameters:
  422.  *  None, but set m_cx, m_cy and size m_hWnd before calling.
  423.  *
  424.  * Return Value:
  425.  *  None
  426.  */
  427.  
  428. void CPages::UpdateScrollRanges(void)
  429.     {
  430.     UINT        cxSB;   //Scrollbar width and height.
  431.     UINT        cySB;
  432.     UINT        cx, cy;
  433.     UINT        dx, dy;
  434.     UINT        u;
  435.     int         iMin, iMax;
  436.     RECT        rc;
  437.     BOOL        fHScroll;
  438.     BOOL        fVScroll;
  439.     BOOL        fWasThere;
  440.  
  441.     GetClientRect(m_hWnd, &rc);
  442.  
  443.     cx=rc.right-rc.left;
  444.     cy=rc.bottom-rc.top;
  445.  
  446.     //Convert dimensions of the image in LOMETRIC to pixels.
  447.     SetRect(&rc, (m_cx+m_xMarginLeft+m_xMarginRight+LOMETRIC_BORDER*2)
  448.         , (m_cy+m_yMarginTop+m_yMarginBottom+LOMETRIC_BORDER*2), 0, 0);
  449.  
  450.     RectConvertMappings(&rc, NULL, TRUE);
  451.  
  452.     dx=rc.left;
  453.     dy=-rc.top;
  454.  
  455.     //Assume that both scrollbars will be visible.
  456.     fHScroll=TRUE;
  457.     fVScroll=TRUE;
  458.  
  459.     /*
  460.      * Determine:
  461.      *  1)  Which scrollbars are needed.
  462.      *  2)  How many divisions to give scrollbars so as to
  463.      *      only scroll as little as necessary.
  464.      */
  465.  
  466.     //Scrollbar dimensions in our units.
  467.     cxSB=GetSystemMetrics(SM_CXVSCROLL);
  468.     cySB=GetSystemMetrics(SM_CYHSCROLL);
  469.  
  470.     //Remove horizontal scroll if window >= cxPage+borders
  471.     if (cx >= dx)
  472.         fHScroll=FALSE;
  473.  
  474.  
  475.     /*
  476.      * If we still need a horizontal scroll, see if we need a vertical
  477.      * taking the height of the horizontal scroll into account.
  478.      */
  479.  
  480.     u=fHScroll ? cySB : 0;
  481.  
  482.     if ((cy-u) >= dy)
  483.         fVScroll=FALSE;
  484.  
  485.     //Check to see if adding a vertical scrollbar necessitates a horz now.
  486.     u=fVScroll ? cxSB : 0;
  487.     fHScroll=((cx-u) < dx);
  488.  
  489.     /*
  490.      * Modify cx,cy to reflect the new client area before scaling
  491.      * scrollbars.  We only affect the client size if there is a
  492.      * *change* in scrollbar status:  if the scrollbar was there but
  493.      * is no longer, then add to the client size; if it was not there
  494.      * but now is, then subtract.
  495.      */
  496.  
  497.     //Change cx depending on vertical scrollbar change
  498.     GetScrollRange(m_hWnd, SB_VERT, &iMin, &iMax);
  499.     fWasThere=(0!=iMin || 0!=iMax);
  500.  
  501.     if (fWasThere && !fVScroll)
  502.         cx+=cxSB;
  503.  
  504.     if (!fWasThere && fVScroll)
  505.         cx-=cxSB;
  506.  
  507.     //Change cy depending on horizontal scrollbar change
  508.     GetScrollRange(m_hWnd, SB_HORZ, &iMin, &iMax);
  509.     fWasThere=(0!=iMin || 0!=iMax);
  510.  
  511.     if (fWasThere && !fHScroll)
  512.         cy+=cySB;
  513.  
  514.     if (!fWasThere && fHScroll)
  515.         cy-=cySB;
  516.  
  517.  
  518.     /*
  519.      * Show/Hide the scrollbars if necessary and set the ranges.  The range
  520.      * is the number of units of the page we cannot see.
  521.      */
  522.     if (fHScroll)
  523.         {
  524.         //Convert current scroll position to new range.
  525.         u=GetScrollPos(m_hWnd, SB_HORZ);
  526.  
  527.         if (0!=u)
  528.             {
  529.             GetScrollRange(m_hWnd, SB_HORZ, &iMin, &iMax);
  530.             u=MulDiv(u, (dx-cx), (iMax-iMin));
  531.             }
  532.  
  533.         SetScrollRange(m_hWnd, SB_HORZ, 0, dx-cx, FALSE);
  534.         SetScrollPos(m_hWnd, SB_HORZ, u, TRUE);
  535.         m_xPos=u;
  536.         }
  537.     else
  538.         {
  539.         SetScrollRange(m_hWnd, SB_HORZ, 0, 0, TRUE);
  540.         m_xPos=0;
  541.         }
  542.  
  543.     if (fVScroll)
  544.         {
  545.         //Convert current scroll position to new range.
  546.         u=GetScrollPos(m_hWnd, SB_VERT);
  547.  
  548.         if (0!=u)
  549.             {
  550.             GetScrollRange(m_hWnd, SB_VERT, &iMin, &iMax);
  551.             u=MulDiv(u, (dy-cy), (iMax-iMin));
  552.             }
  553.  
  554.         SetScrollRange(m_hWnd, SB_VERT, 0, dy-cy, FALSE);
  555.         SetScrollPos(m_hWnd, SB_VERT, u, TRUE);
  556.  
  557.         m_yPos=u;
  558.         }
  559.     else
  560.         {
  561.         SetScrollRange(m_hWnd, SB_VERT, 0, 0, TRUE);
  562.         m_yPos=0;
  563.         }
  564.  
  565.     //Repaint to insure that changes to m_xPos and m_yPos are reflected
  566.     InvalidateRect(m_hWnd, NULL, TRUE);
  567.  
  568.     return;
  569.     }
  570.  
  571.  
  572.  
  573.  
  574.  
  575.  
  576.  
  577.  
  578.  
  579. /*
  580.  * CPages::Print
  581.  *
  582.  * Purpose:
  583.  *  Prints a specified range of pages to a given hDC.  Repeats for
  584.  *  a given number of copies.
  585.  *
  586.  * Parameters:
  587.  *  hDC             HDC to which we print.
  588.  *  pszDoc          LPSTR providing the document name.
  589.  *  dwFlags         DWORD flags from PrintDlg
  590.  *  iPageStart      UINT starting page index (one based)
  591.  *  iPageEnd        UINT ending page index (one based).  Includes this page.
  592.  *  cCopies         UINT number of copies to print.  If PD_COLLATE in
  593.  *                  dwFlags is set, we print multiple copies of each page
  594.  *                  as we cycle through.  Otherwise we cycle multiple times.
  595.  *
  596.  * Return Value:
  597.  *  None
  598.  */
  599.  
  600. BOOL CPages::Print(HDC hDC, LPSTR pszDoc, DWORD dwFlags, UINT iPageStart
  601.     , UINT iPageEnd, UINT cCopies)
  602.     {
  603.     BOOL        fError=FALSE;
  604.     int         iPage, iPageInc;
  605.     int         iUserPage, cPages;
  606.     UINT        iRepeat, cRepeat;
  607.     UINT        iCycle, cCycles;
  608.     UINT        iPageHold=m_iPageCur;
  609.     HWND        hWndT, hWndTop=NULL;
  610.     DLGPROC     pfnDlg;
  611.     ABORTPROC   pfnAbort;
  612.     DOCINFO     di;
  613.  
  614.     //Validate hDC and page ranges
  615.     if (NULL==hDC)
  616.         return FALSE;
  617.  
  618.     if ((PD_PAGENUMS & dwFlags))
  619.         {
  620.         if (-1==iPageStart)
  621.             iPageStart=0;
  622.  
  623.         if (-1==iPageEnd)
  624.             iPageEnd=m_cPages-1;
  625.         }
  626.     else //Can't test PD_ALLPAGES with & since it's defined as 0L
  627.         {
  628.         iPageStart=0;
  629.         iPageEnd=m_cPages-1;
  630.         }
  631.  
  632.     //Arrage number of cycles and repeats depending on cCopies and flags.
  633.     if (PD_COLLATE & dwFlags)
  634.         {
  635.         cCycles=cCopies;
  636.         cRepeat=1;
  637.         }
  638.     else
  639.         {
  640.         cCycles=1;
  641.         cRepeat=cCopies;
  642.         }
  643.  
  644.     //Disable the top window to prevent reentrancy while printing.
  645.     hWndT=m_hWnd;
  646.  
  647.     while (NULL!=hWndT)
  648.         {
  649.         hWndTop=hWndT;
  650.         hWndT=GetParent(hWndT);
  651.         }
  652.  
  653.     EnableWindow(hWndTop, FALSE);
  654.  
  655.     pfnAbort=(ABORTPROC)MakeProcInstance((FARPROC)AbortProc, m_hInst);
  656.     SetAbortProc(hDC, pfnAbort);
  657.  
  658.     g_fCancelPrint=FALSE;
  659.  
  660.     //If these don't work then we'll just live without a dialog.
  661.     pfnDlg=(DLGPROC)MakeProcInstance((FARPROC)PrintDlgProc, m_hInst);
  662.     g_hDlgPrint=CreateDialog(m_hInst, MAKEINTRESOURCE(IDD_PRINTING)
  663.         , hWndTop, pfnDlg);
  664.  
  665.  
  666.     //Increment for either direction.
  667.     iPageInc=(iPageStart > iPageEnd) ? -1 : 1;
  668.  
  669.     //Initial entries in dialog box.
  670.     cPages=1+((int)(iPageEnd-iPageStart)*iPageInc);
  671.  
  672.     SendMessage(g_hDlgPrint, PRINTM_PAGEUPDATE, 1, (LPARAM)cPages);
  673.     SendMessage(g_hDlgPrint, PRINTM_COPYUPDATE, 1, (LPARAM)cRepeat);
  674.  
  675.     di.cbSize=sizeof(DOCINFO);
  676.     di.lpszDocName=pszDoc;
  677.     di.lpszOutput=NULL;
  678.  
  679.     if (StartDoc(hDC, &di) > 0)
  680.         {
  681.         /*
  682.          * Iterate over the pages, repeating each page depending on
  683.          * the copies we want and if we have collate enabled.
  684.          */
  685.  
  686.         for (iCycle=1; iCycle <= cCycles; iCycle++)
  687.             {
  688.             if (PD_COLLATE & dwFlags)
  689.                 SendMessage(g_hDlgPrint, PRINTM_COPYUPDATE, iCycle, (LPARAM)cCycles);
  690.  
  691.             //iPageInc controls direction; end of loop controls termination.
  692.             for (iPage=iPageStart; ; iPage+=iPageInc)
  693.                 {
  694.                 iUserPage=1+((iPage-(int)iPageStart)*iPageInc);
  695.  
  696.                 SendMessage(g_hDlgPrint, PRINTM_PAGEUPDATE
  697.                     , iUserPage, (LPARAM)cPages);
  698.  
  699.                 m_iPageCur=iPage;   //We restore this later.
  700.  
  701.                 for (iRepeat=1; iRepeat <= cRepeat; iRepeat++)
  702.                     {
  703.                     if (!(PD_COLLATE & dwFlags))
  704.                         {
  705.                         SendMessage(g_hDlgPrint, PRINTM_COPYUPDATE
  706.                             , iRepeat, (LPARAM)cRepeat);
  707.                         }
  708.  
  709.                     StartPage(hDC);
  710.                     Draw(hDC, TRUE, TRUE);
  711.  
  712.                     if (EndPage(hDC) < 0)
  713.                         fError=TRUE;
  714.  
  715.                     if (fError || g_fCancelPrint)
  716.                         break;
  717.                     }
  718.  
  719.                 if (fError || g_fCancelPrint)
  720.                     break;
  721.  
  722.                 //If we just printed the last page, time to quit.
  723.                 if (iPage==(int)iPageEnd)
  724.                     break;
  725.                 }
  726.  
  727.             if (fError || g_fCancelPrint)
  728.                 break;
  729.             }
  730.  
  731.         if (!fError)
  732.             EndDoc(hDC);
  733.         else
  734.             AbortDoc(hDC);
  735.         }
  736.     else
  737.         fError=TRUE;
  738.  
  739.     //Set the page back to what it was before all this started.
  740.     m_iPageCur=iPageHold;
  741.  
  742.     DestroyWindow(g_hDlgPrint);
  743.     SetActiveWindow(hWndTop);
  744.  
  745.     FreeProcInstance((FARPROC)pfnDlg);
  746.     FreeProcInstance((FARPROC)pfnAbort);
  747.     EnableWindow(hWndTop, TRUE);
  748.     DeleteDC(hDC);
  749.  
  750.     return !fError;
  751.     }
  752.  
  753.  
  754.  
  755.  
  756.  
  757.  
  758. /*
  759.  * AbortProc
  760.  *
  761.  * Purpose:
  762.  *  Abort procedure for printing the pages.
  763.  *
  764.  * Parameters:
  765.  *  hDC             HDC on which printing is happening.
  766.  *  iErr            int error code.
  767.  *
  768.  * Return Value:
  769.  *  BOOL            TRUE to continue the print job, FALSE otherwise.
  770.  */
  771.  
  772. BOOL __export FAR PASCAL AbortProc(HDC hDC, int iErr)
  773.     {
  774.     MSG     msg;
  775.  
  776.     while (!g_fCancelPrint && PeekMessage(&msg, NULL, 0, 0, PM_REMOVE))
  777.         {
  778.         if (NULL==g_hDlgPrint || !IsDialogMessage(g_hDlgPrint, &msg))
  779.             {
  780.             TranslateMessage(&msg);
  781.             DispatchMessage(&msg);
  782.             }
  783.         }
  784.  
  785.     return !g_fCancelPrint;
  786.     }
  787.  
  788.  
  789.  
  790.  
  791. /*
  792.  * PrintDlgProc
  793.  *
  794.  * Purpose:
  795.  *  Modeless dialog procedure for the dialog displayed while Patron
  796.  *  is printing pages.
  797.  */
  798.  
  799. BOOL __export FAR PASCAL PrintDlgProc(HWND hDlg, UINT iMsg
  800.     , WPARAM wParam, LPARAM lParam)
  801.     {
  802.     char            szFormat[40];
  803.     char            szOutput[80];
  804.  
  805.     switch (iMsg)
  806.         {
  807.         case WM_INITDIALOG:
  808.             EnableMenuItem(GetSystemMenu(hDlg, FALSE), SC_CLOSE, MF_GRAYED);
  809.             return TRUE;
  810.  
  811.         case WM_COMMAND:
  812.             //Cancel button was pressed.
  813.             g_fCancelPrint=TRUE;
  814.             ShowWindow(hDlg, SW_HIDE);
  815.             return TRUE;
  816.  
  817.         case PRINTM_PAGEUPDATE:
  818.             GetDlgItemText(hDlg, ID_PAGESTRING, szFormat, sizeof(szFormat));
  819.             wsprintf(szOutput, szFormat, (UINT)wParam, (UINT)lParam);
  820.             SetDlgItemText(hDlg, ID_CURRENTPAGE, szOutput);
  821.             return TRUE;
  822.  
  823.         case PRINTM_COPYUPDATE:
  824.             GetDlgItemText(hDlg, ID_COPYSTRING, szFormat, sizeof(szFormat));
  825.             wsprintf(szOutput, szFormat, (UINT)wParam, (UINT)lParam);
  826.             SetDlgItemText(hDlg, ID_CURRENTCOPY, szOutput);
  827.             return TRUE;
  828.         }
  829.  
  830.     return FALSE;
  831.     }
  832.